---
title: "Replication File for Integrating the Use of Statistical Software"
author: "Brown, Bryant, Philips"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(readr)
library(readxl)
library(tidyverse)
library(ggrepel)
library(ggmosaic)
library(Hmisc)
library(descr)

software <- read.csv("software_usage.csv")
```

Figure 1: Software requirements by institution type
```{r}
ggplot(data = software) +
  geom_mosaic(size = 1, aes(product(school_top25_list), fill = course_required)) +
  theme_minimal() +
  scale_fill_brewer(palette = "Greens") +
  ylab("Is the course required?") +
  xlab("School Type") +
  coord_flip() 
```

Table 1: Software Patterns
```{r}
freq(software$Excel)
freq(software$Rdum)
freq(software$SPSS)
freq(software$Stata)
# Other = 5 cases
  freq(software$Google_Sheets)
  freq(software$HTML)
  freq(software$Java)
  freq(software$LaTex)
```


Table 2: Included topics
```{r}
freq(software$course_research_design)
freq(software$course_casuality_casual)
freq(software$course_philosphy_epistemology)
freq(software$course_bivariate)
freq(software$course_gauss_markov_ols)
freq(software$course_reg_bin_dep)
freq(software$course_hypothesis_testing)
freq(software$course_other)
freq(software$course_probability)
freq(software$course_graphics)
```


Table 3: Assessment types
```{r}
freq(software$individual)
freq(software$group)
freq(software$paper.f)
freq(software$presi)
freq(software$exams)
```


